home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.0 / Video Toaster v4.0.iso / arexx / switcher / genlockfunction.rexx < prev    next >
OS/2 REXX Batch file  |  1993-12-13  |  758b  |  49 lines
  1. /* Demonstrates using the Toaster Genlock utility as an ARexx function host */
  2. /* By Arnie Cachelin © 1992 NewTek Inc.                              */
  3.  
  4. GENLOCKFCN = 'GENLOCK_REXX_PORT'
  5.  
  6. IF POS(GENLOCKFCN , SHOW('Libraries')) = 0 THEN
  7.   IF ~ADDLIB(GENLOCKFCN , 0) THEN DO
  8.     SAY "Sorry, Cannot add Genlock function host... exiting now"
  9.     EXIT
  10.   END
  11.  
  12.  
  13. TAKE()
  14. say "Hit return"
  15. pull arg1
  16.  
  17. say AUTO()
  18. say "Hit return"
  19. pull arg1
  20.  
  21. /* TBAR movement is relative, not absolute */
  22.  
  23. say TBAR(50)
  24. say "Hit return"
  25. pull arg1
  26. say TBAR(50)
  27. say "Hit return"
  28. pull arg1
  29. say TBAR(50)
  30. say "Hit return"
  31. pull arg1
  32.  
  33. say TBAR(-50)
  34. say "Hit return"
  35. pull arg1
  36. say TBAR(-50)
  37. say "Hit return"
  38. pull arg1
  39. say TBAR(-50)
  40. say "Hit return"
  41. pull arg1
  42.  
  43. say RBUP()
  44.  
  45. say QUIT()
  46.  
  47. say 'Exiting'
  48.  
  49.